home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 2009 February
/
PCWFEB09.iso
/
Software
/
Resources
/
Developer & Web Development Tools
/
Twistpad 1.64
/
Setup.exe
/
$APPDATA
/
Carthago
/
Twistpad
/
Snippets
/
delphi.tsf
next >
Wrap
Text File
|
2006-07-26
|
2KB
|
159 lines
Delphi
T=Delphi Project
program ^\;
uses
forms;
{$R *.RES}
begin
Application.Initialize;
Application.Title := '';
Application.CreateForm(TMyForm, MyForm);
Application.Run;
end.
T=Delphi Project (simple)
program ^\;
uses
;
{$R *.RES}
begin
end.
T=Delphi Unit
unit ^\;
interface
uses
windows,
messages;
type
TMyForm = class( TForm )
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DFM}
end.
T=array[var]
array[0..^\] of ;
T=array[const]
array[0..^\] of = ();
T=case statement
case ^\ of
: ;
: ;
end;
T=case statement (else)
case ^\ of
: ;
: ;
else ;
end;
T=class declaration (full)
T^\ = class(T)
private
protected
public
published
end;
T=class declaration (short)
T^\ = class(T)
end;
T=class declaration (with overrides)
T^\ = class(T)
private
protected
public
constructor Create; override;
destructor Destroy; override;
published
end;
T=for (simple)
for ^\ := to do ;
T=for statement
for ^\ := to do
begin
end;
T=function declaration
function ^\(): ;
begin
end;
T=procedure declaration
procedure ^\();
begin
end;
T=if (simple)
if ^\ then ;
T=if statement
if ^\ then
begin
end;
T=if_else (simple)
if ^\ then
else ;
T=if_else
if ^\ then
begin
end
else
begin
end;
T=try_except
try
^\
except
end;
T=try_finally
try
^\
finally
end;
T=while (simple)
while ^\ do ;
T=while statement
while ^\ do
begin
end;
T=with (simple)
with ^\ do ;
T=with statement
with ^\ do
begin
end;
T=Separator {-----}
{-------------------------------------------------------------------}
T=Separator (*---*)
(*-----------------------------------------------------------------*)